home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Education / RLaB / examples / factest.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  152 b   |  13 lines  |  [TEXT/ttxt]
  1. factest = function ( n )
  2. {
  3.   local( i , x );
  4.   i = 0; x = 50;
  5.   while( i < n )
  6.   {
  7.     fac( x );
  8.     i++;
  9.   }
  10.   printf("factest done, n = %i\n", n);
  11. }
  12.  
  13.